inherited frmAutoTransfer: TfrmAutoTransfer
  Left = 474
  Top = 206
  ActiveControl = btnAppend
  Caption = #33258#21160#36716#24080
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBottom: TPanel
    TabOrder = 2
    inherited btnOK: TcxButton
      Left = 454
      Visible = False
      ExplicitLeft = 454
    end
    inherited btnCancel: TcxButton
      Left = 532
      OnClick = btnCancelClick
      ExplicitLeft = 532
    end
    object btnSelEmpty: TcxButton
      Left = 439
      Top = 9
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #20840#28165
      TabOrder = 2
      OnClick = btnSelEmptyClick
    end
    object btnSelAll: TcxButton
      Tag = 1
      Left = 361
      Top = 9
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #20840#36873
      TabOrder = 3
      OnClick = btnSelAllClick
    end
    object btnVoucher: TcxButton
      Left = 8
      Top = 9
      Width = 75
      Height = 25
      Caption = #20973#35777
      TabOrder = 4
      OnClick = btnVoucherClick
    end
    object btnAppend: TcxButton
      Left = 104
      Top = 9
      Width = 75
      Height = 25
      Caption = #22686#21152
      TabOrder = 5
      OnClick = btnAppendClick
    end
    object btnEdit: TcxButton
      Left = 183
      Top = 9
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 6
      OnClick = btnEditClick
    end
    object btnDelete: TcxButton
      Left = 261
      Top = 9
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 7
      OnClick = btnDeleteClick
    end
  end
  inherited Panel1: TPanel
    inherited labFuncName: TLabel
      Width = 52
      Caption = #33258#21160#36716#24080
      ExplicitWidth = 52
    end
    inherited Bevel1: TBevel
      ExplicitWidth = 612
    end
  end
  object grdAutoTransfer: TcxGrid [2]
    Left = 0
    Top = 25
    Width = 548
    Height = 249
    Align = alClient
    TabOrder = 1
    object viewAutoTransfer: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataSource = dsTransfer
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      Styles.Background = MainDM.bslBackGroup
      object viewAutoTransfervouname: TcxGridDBColumn
        DataBinding.FieldName = 'vouname'
        HeaderAlignmentHorz = taCenter
        Width = 120
      end
      object viewAutoTransfervouwordname: TcxGridDBColumn
        DataBinding.FieldName = 'vouwordname'
        HeaderAlignmentHorz = taCenter
        Width = 120
      end
      object viewAutoTransferchoice: TcxGridDBColumn
        DataBinding.FieldName = 'choice'
        HeaderAlignmentHorz = taCenter
        Width = 50
      end
    end
    object lvlAutoTransfer: TcxGridLevel
      GridView = viewAutoTransfer
    end
  end
  inherited MainDataSource: TDataSource
    Left = 166
  end
  object cdsTransfer: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTransfer'
    Left = 36
    Top = 116
    object cdsTransferbid: TIntegerField
      FieldName = 'bid'
    end
    object cdsTransfervouwordid: TIntegerField
      FieldName = 'vouwordid'
    end
    object cdsTransfervouwordname: TStringField
      DisplayLabel = #20973#35777#31867#21035
      FieldName = 'vouwordname'
      Size = 60
    end
    object cdsTransfervouname: TStringField
      DisplayLabel = #20973#35777#21517#31216
      FieldName = 'vouname'
      Size = 40
    end
    object cdsTransferchoice: TBooleanField
      DisplayLabel = #20351#29992
      FieldName = 'choice'
    end
    object cdsTransferSYear: TIntegerField
      FieldName = 'SYear'
    end
    object cdsTransferSMonth: TIntegerField
      FieldName = 'SMonth'
    end
    object cdsTransferEYear: TIntegerField
      FieldName = 'EYear'
    end
    object cdsTransferEMonth: TIntegerField
      FieldName = 'EMonth'
    end
  end
  object dspTransfer: TDataSetProvider
    DataSet = qryTransfer
    Left = 36
    Top = 164
  end
  object dsTransfer: TDataSource
    DataSet = cdsTransfer
    Left = 32
    Top = 56
  end
  object qryTransfer: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      
        'select t.BID,t.vouwordid,v.Name As VouwordName,t.vouname,t.choic' +
        'e,'
      '  t.SYear,t.SMonth,t.EYear,t.EMonth'
      
        '  from tft_autotransfer t Left join tfd_vouword v on t.vouwordid' +
        '=v.id'
      '  where t.filid=:filid')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 36
    Top = 224
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'filid'
        Value = nil
      end>
  end
  object qryTransferVou: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select bid,vouwordID,vouNAME,choice,filid'
      'From tft_AutoTransfer'
      'Where BID=:autotsfbID')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 116
    Top = 260
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'autotsfbID'
        Value = nil
      end>
  end
  object qryTransferVouDtl: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select a.bid,a.bno,a.subjectid,a.transfertypeid,'
      's.moneyid,a.projectid,a.deptid,a.empid,'
      'a.traderid,a.productid,a.vouexplan,a.debitorcredit,a.postvou,'
      'a.price,a.transrate,a.moneyformula,a.tsftypename,a.execformula,'
      'm.rate as exchrate'
      'from tft_autotransferdtl a,tfd_subject s,td_money m'
      'Where a.bid=:autotsfbid'
      'and a.subjectid=s.subjectid and s.moneyid=m.moneyid')
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 180
    Top = 280
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'autotsfbid'
        Value = nil
      end>
  end
  object qrySubject: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      
        'select subjectID,IsDebit From tfd_Subject where SubjectID=:Subje' +
        'ctID')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 308
    Top = 192
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SubjectID'
        Value = nil
      end>
  end
  object spp_subbal: TUniStoredProc
    StoredProcName = 'p_subbal'
    Connection = MainDM.UniConn
    Left = 340
    Top = 52
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftString
        Name = 'bsubcode'
        ParamType = ptInput
        Size = 40
        Value = nil
      end
      item
        DataType = ftString
        Name = 'esubcode'
        ParamType = ptInput
        Size = 40
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'nyear'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'bnmonth'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'enmonth'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftString
        Name = 'paramname'
        ParamType = ptInput
        Size = 40
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'filid'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftFloat
        Name = 'result'
        ParamType = ptInputOutput
        Value = nil
      end>
    CommandStoredProcName = 'p_subbal'
  end
  object spp_subitem: TUniStoredProc
    StoredProcName = 'p_subitem'
    Connection = MainDM.UniConn
    Left = 452
    Top = 64
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftString
        Name = 'bsubcode'
        ParamType = ptInput
        Size = 40
        Value = nil
      end
      item
        DataType = ftString
        Name = 'esubcode'
        ParamType = ptInput
        Size = 40
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'nyear'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'bnmonth'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'enmonth'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftString
        Name = 'paramname'
        ParamType = ptInput
        Size = 40
        Value = nil
      end
      item
        DataType = ftString
        Name = 'projectname'
        ParamType = ptInput
        Size = 40
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'filid'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftFloat
        Name = 'result'
        ParamType = ptInputOutput
        Value = nil
      end>
    CommandStoredProcName = 'p_subitem'
  end
end
